(svg--encode-text): Make strings even more valid

* lisp/svg.el (svg--encode-text): Quote &<>, too.

diff --git a/lisp/svg.el b/lisp/svg.el
index 8639bf1124335846b766a3fb6f19fc11b27f4610..241385fa91ff6b3be52e3d4d1da7f0769e8d82b5 100644 (file)
--- a/lisp/svg.el
+++ b/lisp/svg.el
@@ -163,7 +163,7 @@ otherwise.  IMAGE-TYPE should be a MIME image type, like
   ;; Apparently the SVG renderer needs to have all non-ASCII
   ;; characters encoded.
   (with-temp-buffer
-    (insert text)
+    (insert (xml-escape-string text))
     (goto-char (point-min))
     (while (not (eobp))
       (let ((char (following-char)))